home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 11 / PC World Interactive 11.iso / share / multimed / MAINACT / DATA1.CAB / Script_Files / convmpeg.rex < prev    next >
OS/2 REXX Batch file  |  1998-05-04  |  2KB  |  38 lines
  1. /**************************************************************
  2.  *                                                            *
  3.  *                   MainActor Rexx Script                    *
  4.  *                                                            *
  5.  *  Loads a project and converts it to MPEG-I (PAL)           *
  6.  *  Can be customized in any way                              *
  7.  *                                                            *
  8.  *  Last modified: 09/09/97, Written by: Markus Moenig        *
  9.  *                                                            *
  10.  **************************************************************/
  11.  
  12.   say "Select Project ..."
  13.   rc=LoadProject("")                               /* Load project ... */
  14.   IF rc <> "0" THEN DO
  15.    say "No project loaded! Exiting ..."            /* Failed, exiting ... */
  16.    exit
  17.   END 
  18.  
  19.   filename="c:\out"               /* Use "" to get a file-requester */
  20.   format="MPEG-I"                 /* Change this to use another format, like "AVI" */
  21.   codec="PAL"                     /* Use the codec which has "PAL" in its identifier */
  22.   frames="AllFrames"              /* Use "SelectedFrames" if you only want to convert */
  23.                                   /* the selected frames of the project */
  24.   width=0                         /* Use original width */
  25.   height=0                        /* Use original height */
  26.  
  27.   /* You could for example use width=352 and height=288 to make sure that the */
  28.   /* created MPEG has the default PAL dimensions */
  29.  
  30.   say "Converting project to" format "..."
  31.  
  32.   TIME("R")                       /* Reset the timer */
  33.   Save( filename, format, codec, frames, width, height ) /* Save it ... */
  34.  
  35.   say "Finished, needed" TIME("E") "seconds !"
  36.  
  37.   CloseProject()                  /* Closes the loaded project */
  38.